home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Shareware World / Comms & Internet / WebSentinel 2.0.5 / Extras / Scripting / WebSiphon / sentinel_functions.t < prev   
Encoding:
Text File  |  1998-03-18  |  4.0 KB  |  110 lines  |  [TEXT/R*ch]
  1. <<
  2. // WebSentinel Scripting Functions
  3. // Last modified: 3/18/98
  4.  
  5. // This is an include file for use by WebSiphon v1.5 users that wish to 
  6. // control WebSentinel through their templates.
  7.  
  8. // Full documentation for how to script WebSentinel is being worked on, and 
  9. // will be included in a future version of WebSentinel.  Until that time, if 
  10. // you have questions feel free to email <websentinel-support@purity.com> or 
  11. // subscribe to the WebSentinel-Talk mailing list.
  12.  
  13.  
  14. // count users
  15. function sentinel_CountUsers (target_id)
  16.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_cu", [["s_tp" target_id]]);
  17. end function;
  18.  
  19. // count groups
  20. function sentinel_CountGroups (target_id)
  21.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_cg", [["----" target_id]]);
  22. end function;
  23.  
  24.  
  25.  
  26. // get targets
  27. function sentinel_GetTargets ()
  28.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_gt", []);
  29. end function;
  30.  
  31. // get realms
  32. function sentinel_GetRealms ()
  33.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_gr", []);
  34. end function;
  35.  
  36. // get users
  37. function sentinel_GetUsers (target_id, start_with, num_users)
  38.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_gu", [["s_tp" target_id] ["s_sw" start_with] ["s_nr" num_users]]);
  39. end function;
  40.  
  41. // get groups
  42. function sentinel_GetGroups (target_id, start_with, num_groups)
  43.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_gg", [["s_tp" target_id] ["s_sw" start_with] ["s_nr" num_groups]]);
  44. end function;
  45.  
  46.  
  47.  
  48. // add realm
  49. function sentinel_AddRealm (realm_name, match_string, grep, no_access_path, notes, label, target_id)
  50.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_ar", [["----" realm_name] ["s_mp" match_string] 
  51.                     ["s_gp" grep] ["s_na" no_access_path] ["s_nt" notes] ["s_lp" label] ["s_tp" target_id]]);
  52. end function;
  53.  
  54. // add user
  55. function sentinel_AddUser (username, password, realms_list, groups_list, notes, label, target_id)
  56.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_au", [["----" username] ["s_pp" password] 
  57.                     ["s_rl" realms_list] ["s_gr" groups_list] ["s_nt" notes] ["s_lp" label] ["s_tp" target_id]]);
  58. end function;
  59.  
  60. // add group
  61. function sentinel_AddGroup (groupname, realms_list, notes, label, target_id)
  62.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_au", [["----" groupname]
  63.                     ["s_rl" realms_list] ["s_nt" notes] ["s_lp" label] ["s_tp" target_id]]);
  64. end function;
  65.  
  66.  
  67.  
  68. // set realm
  69. function sentinel_SetRealm (realm_id, realm_name, match_string, grep, no_access_path, notes, label, target_id)
  70.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_sr", [["----" realm_id] ["s_np"] ["s_mp" match_string] 
  71.                     ["s_gp" grep] ["s_na" no_access_path] ["s_nt" notes] ["s_lp" label] ["s_tp" target_id]]);
  72. end function;
  73.  
  74. // set user
  75. function sentinel_SetUser (user_id, username, password, realms_list, groups_list, notes, label, target_id)
  76.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_su", [["----" user_id] ["s_np" username] ["s_pp" password] 
  77.                     ["s_rl" realms_list] ["s_gr" groups_list] ["s_nt" notes] ["s_lp" label] ["s_tp" target_id]]);
  78. end function;
  79.  
  80. // set group
  81. function sentinel_SetGroup (group_id, groupname, realms_list, notes, label, target_id)
  82.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_sg", [["----" group_id] ["s_np" groupname]
  83.                     ["s_rl" realms_list] ["s_nt" notes] ["s_lp" label] ["s_tp" target_id]]);
  84. end function;
  85.  
  86.  
  87.  
  88. // remove realm
  89. function sentinel_RemoveRealm (realm_id)
  90.     sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_rr", [["----" realm_id]]);
  91. end function;
  92.  
  93. // remove user
  94. function sentinel_RemoveUser (user_id, target_id)
  95.     sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_ru", [["----" user_id] ["s_tp" target_id]]);
  96. end function;
  97.  
  98. // remove group
  99. function sentinel_RemoveGroup (group_id, target_id)
  100.     sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_rg", [["----" group_id] ["s_tp" target_id]]);
  101. end function;
  102.  
  103.  
  104. // lookup user
  105. function sentinel_LookupUser (username, target_id)
  106.     return sendAppleEvent ("WebSentinel Gateway", "s_ec", "s_lu", [["----" username] ["s_tp" target_id]]);
  107. end function;
  108.  
  109. >>
  110.